﻿Public Class Shell
    Sub New()


        InitializeComponent()
        'Modules Controllers 
        ModuleController.Instance.Run()


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New frmAlumnosView
        f.Show(Me)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim f As New frmExAlumnosView
        f.Show(Me)
    End Sub

    Private Sub Shell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Shell_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim bg As New System.Drawing.Drawing2D.LinearGradientBrush(e.ClipRectangle, Color.Blue, Color.Black, System.Drawing.Drawing2D.LinearGradientMode.Vertical)
        e.Graphics.FillRectangle(bg, e.ClipRectangle)


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim f As New frmNuevosAlumnosView
        f.Show(Me)
    End Sub
End Class
